以下是引用caoxy在2011-4-3 21:16:00的发言：
Select Case e.DataCol.Name
Case "品种",""排档_规格"
Dim dr2 As DataRow
Dim fls As String
fls = "盘具名称 = '" & dr1("品种") & "' And "钢管_规格 = '" & dr1(""钢管_规格") & "'"
dr2 = DataTables("参数").Find(fls)
If dr2 IsNot Nothing Then
dr1("排档_单价") = dr2("钢材单价")
End If
End Select
这组代码确定时出现错误提示
编译错误：应为语句结束
错误代码：case "品种"，" "排档_规格"
看看标了颜色的地方就知道为什么了。 "钢管_规格 应该是： 钢材规格
[此贴子已经被作者于2011-4-4 9:16:56编辑过]
加好友 
发短信
Post By：2011/4/4 8:57:00 [只看该作者]
