主题：替换代码问题

Dim dd As WinForm.TextBox = Forms("调整工资工龄暗").Controls("姓名")
Dim dr2 As DataRow = DataTables("员工档案").Find("[姓名] = '" & dd.text & "' and [标记] Is Not Null ")
If dr2 IsNot Nothing Then
    DataTables("工资调整").ReplaceFor("现基本工资暗", Forms("调整工资工龄暗").Controls("基本工资暗").text, " [姓名] = '" & dd.text & "' and [现基本工资暗] =  Max and [岗位工资暗] =  Max  ")
    DataTables("工资调整").ReplaceFor("岗位工资暗", Forms("调整工资工龄暗").Controls("岗位工资暗").text, " [姓名] = '" & dd.text & "' and [现基本工资暗] =  Max and [岗位工资暗] =  Max ")
Else
    MessageBox.Show("您调整的员工不对!", "提示")
End If

请问以上按钮代码红色的问题在哪里，谢谢

姓名相同，现基本工资暗和岗位工资暗有多行，如：

调整时间                    姓名     现基本工资暗     岗位工资暗 

2010-06-01               张三     1000               500

2010-07-01               张三     1100               500

2010-08-01               张三     1100               600  

2010-06-01               李四     1200               600

2010-07-01               李四      1200               700

2010-08-01                李四      1300              700     

我要选出红色行的进行替换。用日期最大一个条件也可以。

这是高管要用的特殊岗位工资调整窗口，一般操作员这两列是隐藏的，   

谢谢mr725兄，6楼代码搞定。

这样也行：

DataTables("工资调整").ReplaceFor("现基本工资暗", Forms("调整工资工龄暗").Controls("基本工资暗").text, " [姓名] = '" & dd.text & "' and [调整时间] =  '" & Max & "' ")

按C版的意见也行，不过好像代码更正规，不然到什么时候出现问题还不知道，谢谢C版：

DataTables("工资调整").ReplaceFor("现基本工资暗", Forms("调整工资工龄暗").Controls("基本工资暗").text, " [姓名] = '" & dd.text & "' and [调整时间] =  #" & Max & "# ")

应该是 [调整时间] =  #" & Max & "#  这个吧

请看帮助单引号和双引号，谢谢mr725兄：

 

此主题相关图片如下：未命名.gif