用下拉窗口录入数据，录入数据错乱。明明选择的工序A,品名B,结果填入的是工序A，品名C
关键代码如下：
Dim tbl As Table = Tables("机加工价选取_table1")
If tbl.Current IsNot Nothing Then
Dim tbc As Row = Tables(e.Form.DropTable.Name).Current '取得当前表当前行
Select e.Form.DropCol.Name
Case "产品"
e.Form.DropDownBox.Value = tbl.Current("产品") '产品列填入产品
tbc("工序")= tbl.Current("工序")
tbc("工价")= tbl.Current("工价")
tbc("版本")= tbl.Current("版本")
Case "工序"
If tbc.IsNull("产品") Then '产品列为空值
e.Form.DropDownBox.Value = tbl.Current("工序")
tbc("产品")= tbl.Current("产品")
tbc("工价")= tbl.Current("工价")
tbc("版本")= tbl.Current("版本")
Else
e.Form.DropDownBox.Value = tbl.Current("工序")
tbc("工价")= tbl.Current("工价")
tbc("产品")= tbl.Current("产品")
tbc("版本")= tbl.Current("版本")
End If
End Select
End If
Forms("机加工价选取").DropDownBox.CloseDropDown()
操作录像如下：
此主题相关图片如下：测试文件.gif
查了一天了，实在查不出哪里有问题了。
[此贴子已经被作者于2018/10/14 17:01:45编辑过]
加好友 
发短信
Post By：2018/10/14 15:30:00 [显示全部帖子]
