Foxtable(狐表)用户栏目专家坐堂 → [求助]请老师帮忙看看我这个代码运行怎么关闭不了窗口啊,老卡死


  共有1727人关注过本帖树形打印复制链接

主题:[求助]请老师帮忙看看我这个代码运行怎么关闭不了窗口啊,老卡死

帅哥哟,离线,有人找我吗?
yclz888
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:71 积分:593 威望:0 精华:0 注册:2012/12/11 20:01:00
  发帖心情 Post By:2018/6/3 21:21:00 [显示全部帖子]

If Tables("签单返回_table2").Current Is Nothing Then
    e.Form.Close
Else
    Dim ii As Integer
    For ii = 0 To Tables("签单返回_table2").Rows.Count -1
        Tables("签单返回_Table2").rows(i)("签单返回情况") = Forms("签单返回").Controls("ComboBox1").value
        Tables("签单返回_Table2").Rows(i)("签单返回日期") = Forms("签单返回").Controls("DateTimePicker1").value
        ii=ii+1
    Next
    e.Form.Close
End If

 回到顶部