此主题相关图片如下：目录问题.jpg
e.Form.controls("Table1").Table.addnew()
e.Form.controls("Table2").Table.addnew()
e.Form.controls("Table3").Table.addnew()
e.Form.controls("Table4").Table.addnew()
Dim ls1 As Row = e.Form.controls("Table1").Table.current
Dim ls2 As Row = e.Form.controls("Table2").Table.current
Dim ls3 As Row = e.Form.controls("Table3").Table.current
Dim ls4 As Row = e.Form.controls("Table4").Table.current
Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim txt2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim txt3 As WinForm.TextBox = e.Form.Controls("TextBox3")
Dim txt4 As WinForm.TextBox = e.Form.Controls("TextBox4")
Dim txt5 As WinForm.TextBox = e.Form.Controls("TextBox5")
Dim txt8 As WinForm.TextBox = e.Form.Controls("TextBox8")
Dim WJH As Integer = val(txt1.text)
Dim ND As String = txt8.text
Dim lb As String = txt5.text
Dim fdr As DataRow = DataTables("xls").find("AH like '%" & Format(wjh, "0000") & "%' and AH like '%" & nd & "%' and AH like '%" & lb & "%'")
If fdr IsNot Nothing Then
ls1("LSH") = fdr("LSH")
ls2("LSH") = fdr("LSH")
ls3("LSH") = fdr("LSH")
ls4("LSH") = fdr("LSH")
End If
’下面这段有结果，但存在问题。但我一下子找不到问题所在。
If e.KeyCode = 13 Then
For i As Integer = -2 To val(txt4.text)
Select Case i
Case -2
ls1("LSH") = fdr("LSH")
ls1("JZLB") = txt2.text
ls1("FILENAME") = "FM" & ".jpg"
ls1("PGTYPE") = "1"
Case -1
e.Form.controls("Table1").Table.addnew()
ls1("LSH") = fdr("LSH")
ls1("FILENAME") = "ML" & ".jpg"
ls1("PGTYPE") = "2"
ls1("JZLB") = txt2.text
Case 0
e.Form.controls("Table1").Table.addnew()
ls1("LSH") = fdr("LSH")
ls1("FILENAME") = "BKB" & ".jpg"
ls1("PGTYPE") = "4"
ls1("JZLB") = txt2.text
Case Else
e.Form.controls("Table1").Table.addnew()
ls1("LSH") = fdr("LSH")
ls1("FILENAME") = i & ".jpg"
ls1("PGTYPE") = "3"
ls1("JZLB") = txt2.text
End Select
Next
End If
[此贴子已经被作者于2017/8/31 13:30:58编辑过]
加好友 
发短信
Post By：2017/8/31 13:30:00 [只看该作者]
