主题：[求助] 单元格填入多次内容

以下命令红色部分字体该怎么写命令？

 

If e.DataCol.Name = "光缆名称"   Then '如果更改的是 ***列 和 ***列

 

If  当前表中 其他行的【光缆名称】 与 当前行的【光缆名称】  相同  Then

MessageBox.show("【光缆台帐表】中已经存在该名称光缆!!!", "非常关键提醒")

如何设置在切换 TabControl 页面时的命令；

 

比如我要在TabControl1中从 页面1 切换到 页面2 时；检查 页面1 中的 表1 是否被修改、如果被修改则弹出提示。

 我的【ODM框ODF盘】内容格式为： ODM_01/ODF_02 我希望读取到e.Form.Controls("ODM框ODF盘_" & i2).Text的内容格式为：

 

ODM_01

ODF_02

 

以下命令该怎么修改？

 

For i1 As Integer = 001 To 048
For i2 As Integer = 1 To 4
Dim dr1 As DataRow = DataTables("光缆纤芯台帐表").Find("机房名称 = '" & e.Form.Controls("机房名称1").Text  & "' and 光缆名称 = '" & e.Form.Controls("光缆名称1").Text  & "'and 编号 =  " & (i2-1)*12+1)
If dr1 IsNot Nothing Then
e.Form.Controls("机柜编号_" & i2).Text =  dr1("机柜编号")

Dim mc = System.Text.RegularExpressions.Regex.Matches(dr1("ODM框ODF盘"), "(?<=/{1})")      
e.Form.Controls("ODM框ODF盘_" & i2).Text =  mc(0).Value & vbcrlf & mc(1).Value

 

End If
Next
Next

 

我在某控件的 Enter 中写有以下命令；如果我的【业务名称表】新增加了选项内容。那么我只有关闭该控件所在的窗口后、再打开窗口才能看到新增加的选项。我该怎么做才能够不需要关闭窗口就能够看到新增加的选项？

 

Dim flt As String
e.Sender.ComboList = DataTables("业务名称表").GetComboListString("业务名称","分公司='" &  _User分公司 & "'",flt)

现在在【纤芯业务选择窗口】查看到【业务名称表】选项内容如下图：

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

 

现在我通过【业务名称维护窗口】在【业务名称表】中新增加了选项内容 【35145】

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

 

再点击【纤芯业务选择窗口】查看到【业务名称表】选项内容还是和没添加【35145】前内容一样

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

 

关闭【纤芯业务选择窗口】再打开后，就能看到新添加的【35145】内容啦

 

写到mouseEnter中就可以啦

在表的DataColChanged中写有以下命令，没有生效；我的命令该怎么修改？【编辑锁定】列为 逻辑型 列

 

If e.DataCol.Name = "编辑锁定"  Then
If Tables("宽带帐号割接回访表").Current("编辑锁定") = False Then
   
        e.DataRow ("编辑锁定工号") = Nothing '如果为空,则清除 &&&列内容      
    Else
        e.DataRow("编辑锁定工号") = User.Name
    End If
End If

为什么我在表的 MouseEnterCell 中写有以下命令；会弹出如下错误？

Forms("宽带帐号割接回访主窗口").Controls("Table1").Current.Load()

 

 

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

如果想在选定的多行中的【当前状态】单元格中都填入同一内容，命令该怎么写？

在变量中想记录系统当前时间，命令该怎么改？

 

Dim cmd As New SQLCommand
Dim dt As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()

 

Dim Val1 As Integer
Val1 =  dt