处理自动录显示问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用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编辑过]

主题：处理自动录显示问题