Dim dr As DataRow = DataTables("凭证明细").AddNew()
dr("凭证编码") = e.Form.Controls("TextBox1").text
dr("编制日期") = e.Form.Controls("DateTimePicker1").text
dr("凭证类型") = e.Form.Controls("ComboBox1").text
Dim h = Tables("凭证明细").Rows.Count
Dim i = h-1
MessageBox.Show(h,"提示", MessageBoxButtons.Ok, MessageBoxIcon.Information)
MessageBox.Show(h-1,"提示", MessageBoxButtons.Ok, MessageBoxIcon.Information)
MessageBox.Show(Tables("凭证明细").Rows(i)("凭证摘要").value,"提示", MessageBoxButtons.Ok, MessageBoxIcon.Information)
If h > 1 Then
Tables("凭证明细").Rows(h)("凭证摘要").value = Tables("凭证明细").Rows(i)("凭证摘要").value
Else
dr("凭证摘要") = Nothing
End If
这个提示不出内容？？？？？MessageBox.Show(Tables("凭证明细").Rows(i)("凭证摘要").value,"提示", MessageBoxButtons.Ok, MessageBoxIcon.Information)，是什么回事
加好友 
发短信
Post By：2022/4/16 11:09:00 [显示全部帖子]
此主题相关图片如下：qq截图20220416110836.png