请老师帮忙看看我这个代码运行怎么关闭不了窗口啊,老卡死,我就想在一个完成按钮里给一个表的行循环赋上值然后关闭,点完成老卡死狐表,代码如下:If Tables("签单返回_table2").Current Is Nothing Then
e.Form.Close
Else
Dim i As Integer = 0
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
If i = Tables("签单返回_table2").Rows.Count -1 Then
Exit For
e.Form.Close
End If
Next
End If
加好友 
发短信
Post By：2018/6/3 21:16:00 [只看该作者]
