主题：[求助]数据库表问题

我现在连接的数据库表名、列名都是用英文的；现在我的系统中在做命令的时候、如何能够全部采用【标题】进行编写？

 

 

此主题相关图片如下：360截图20170623143308156.jpg


此主题相关图片如下：360截图20170623143248882.jpg

此主题相关图片如下：360截图20170623153119526.jpg

使用以下命令不生效;把 sql 去掉就可以；问题出在哪里？

 

If Forms("装机工单清单表维护窗口(预约)").Opened Then
    Dim tv As WinForm.TextBox   = Forms("装机工单清单表维护窗口(预约)").Controls("直通车")
   
    Dim dr2 As DataRow = DataTables("外线人员清单表").sqlFind("姓名 = '" & r("装维人员姓名") & "' ")
    If dr2 IsNot Nothing  And   dr2("直通车日期") = Format(dt, "yyyy-MM-dd") Then
                tv.text = dr2("直通车")
            Else
                tv.text = Nothing
    End If
End IF

 

以下命令，在统计出来的结果中，为什么列宽没有按照我写的列宽进行显示？

 

Dim g1 As New GroupTableBuilder("装机工单数据统计表", DataTables("装机工单清单表"))
g1.Groups.AddDef("全部数据")
g1.Build()

Dim t1 As Table = Tables("装维营销中心装机统计窗口-v_Table1")
t1.DataSource = g1.BuildDataSource() '生成表
t1.SetColVisibleWidth("全部数据|80|当月_受理数|120|当月_在途数|120|当月_归档数|120|当月_撤单数|120|当月_归档百分比|200|当月_归档48H及时率|200||当月_归档72H及时率|200")
t1.DataTable.DataCols.Add("当月_受理数", Gettype(Double))
t1.DataTable.DataCols.Add("当月_在途数", Gettype(Double))
t1.DataTable.DataCols.Add("当月_归档数", Gettype(Double))
t1.DataTable.DataCols.Add("当月_撤单数", Gettype(Double))
t1.DataTable.DataCols.Add("当月_归档百分比", Gettype(Double))
t1.DataTable.DataCols.Add("当月_归档48H数", Gettype(Double))
t1.DataTable.DataCols.Add("当月_归档48H及时率", Gettype(Double))
t1.DataTable.DataCols.Add("当月_归档72H数", Gettype(Double))
t1.DataTable.DataCols.Add("当月_归档72H及时率", Gettype(Double))

 

 

 

此主题相关图片如下：360截图20170724124004629.jpg

以下命令是在【营业前台受理工单表】已经加载了有工单的情况下才能生效。如果我想实现在【营业前台受理工单表】不用加载数据、而是在数据库中去匹配。命令该怎么改？

 

把 find 改为 sqlfind 后、执行命令；然后到数据库查看、标红色部分单元格【撤单类型】等数据没有改变

 

Dim dr1 As DataRow = DataTables("营业前台受理工单表").sqlFind("家宽受理单ID =  '" & e.DataRow("管控来单工单号") & "'   ")

 

    Select Case e.DataCol.name
        Case "工单当前环节"
            If   e.DataRow("工单当前环节") = "预约等待撤单工单" And e.DataRow("工单来单途径") = "管控来单工单"  Then
               
                Dim dr1 As DataRow = DataTables("营业前台受理工单表").Find("家宽受理单ID =  '" & e.DataRow("管控来单工单号") & "'   ")
                ' output.show("姓名 = '" & e.DataRow("装维人员姓名") & "' and 区域 = '" & e.DataRow("区域") & "' " & "    " & (dr1 Is Nothing))
                If dr1 IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
                    dr1("撤单类型") = "预约等待撤单工单"
                    dr1("撤单原因") = e.DataRow("预约撤单原因")
                    dr1("撤单详情") = e.DataRow("预约撤单详情")
                    dr1("工单流程") &= vbcrlf & vbcrlf & "【"& User.Name &"】【"& dr1("流转时间")  &"】【"& dt &"】【撤单类型:预约等待撤单工单 / 撤单原因:"& e.DataRow("预约撤单原因") &" / 撤单详情:"& e.DataRow("预约撤单详情") &"】"
                    dr1("流转时间") = dt
                End If
               
            Else
                If   e.DataRow("工单当前环节") <> "预约等待撤单工单" And e.DataRow("工单来单途径") = "管控来单工单"  Then
                   
                    Dim dr1 As DataRow = DataTables("营业前台受理工单表").Find("家宽受理单ID =  '" & e.DataRow("管控来单工单号") & "'   ")
                    ' output.show("姓名 = '" & e.DataRow("装维人员姓名") & "' and 区域 = '" & e.DataRow("区域") & "' " & "    " & (dr1 Is Nothing))
                    If dr1 IsNot Nothing And  dr1("撤单类型") = "预约等待撤单工单"  Then '如果找到了同名的产品行,也就是dr不是Nothing

                        dr1("撤单类型") = Nothing
                        dr1("撤单原因") = Nothing
                        dr1("撤单详情") = Nothing
                        dr1("工单流程") &= vbcrlf & vbcrlf & "【"& User.Name &"】【"& dr1("流转时间") &"】【"& dt &"】【取消[预约等待撤单工单],变更为:"& e.DataRow("工单当前环节") &"】"
                        dr1("流转时间") = dt
                    End If
                   
                End If
            End If
    End Select