主题：下拉窗口数据录入错乱

'If e.Selected Then '如果选择了值
Dim tbl As Table =  Tables("机加工价选取_table1")
If tbl.Current IsNot Nothing Then
    Dim tbc As Row = Tables(e.Form.DropTable.Name).Current   '取得当前表当前行
Dim r As Row = tbl.Current
    Select e.Form.DropCol.Name
        Case "产品"
            e.Form.DropDownBox.Value = r("产品")  '产品列填入产品
            tbc("工序")= r("工序")
            tbc("工价")= r("工价")
            tbc("版本")= r("版本")
        Case "工序"
            If tbc.IsNull("产品") Then  '产品列为空值
                e.Form.DropDownBox.Value = r("工序")
                tbc("产品")= r("产品")
                tbc("工价")= r("工价")
                tbc("版本")= r("版本")
            Else
                e.Form.DropDownBox.Value = r("工序")
                tbc("工价")= r("工价")
                tbc("产品")= r("产品")
                tbc("版本")= r("版本")
            End If
    End Select
End If
'End If

Forms("机加工价选取").DropDownBox.CloseDropDown()

tbl.Current 每一次调用的时候，有可能不是同一行。

比如，你设置值的过程中，触发了事件代码对表格进行了筛选以后，表格数据改变，这个时候current就不是你本来那个了。