主题：这是怎么回事啊，怎么不能同步关联表了？

Dim str As String = e.Form.Controls("TextBox1").Text
Dim str1 As String = e.Form.Controls("TextBox2").Text
Dim str2 As String = e.Form.Controls("TextBox3").Text
Dim str3 As String = e.Form.Controls("TextBox4").Text
Dim str4 As String = e.Form.Controls("TextBox5").Text
Dim str5 As String = e.Form.Controls("TextBox6").Text
Dim nr As Row = Tables("关联填充").AddNew
nr("mc1") = str
nr("关联列") = str1
nr("第三列") = str2
nr("第四列") = str3
nr("第五列") = str4
nr("第六列") = str5

Tables("关联表").filter = "关联列2 = '" & str1 & "'"

For Each r As Row In Tables("关联表").Rows
    r("mc2") = e.Form.Controls("TextBox1").Text
Next
e.Form.Controls("TextBox1").Text = Nothing
e.Form.Controls("TextBox2").Text = Nothing
e.Form.Controls("TextBox3").Text = Nothing
e.Form.Controls("TextBox4").Text = Nothing
e.Form.Controls("TextBox5").Text = Nothing
e.Form.Controls("TextBox6").Text = Nothing