主题：[讨论] 用户管理使用外部数据表 问题

用户管理使用外部数据表是不是不能对用户进行分组？

 

 

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


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

 你把你数据表的空行删除保存再试。

我的【取消】按钮命令为：

DataTables("光缆台帐表").RejectChanges()

但是为什么只是清除了新增行的内容、而不是取消对当前表的修改？（即把新增行删除掉）

 

 

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


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

 RejectChanges，是还原到上一次save的状态。

 

 你新增行的时候，肯定save了。

我的【保存】按钮公式如下；确实是有在【光缆台帐表】新增一行后，对新增行进行保存、再填写内容。但如果我不先保存新增行的话；我后面的命令ndr("光缆Identify") = n("_Identify")就无法获取【光缆台帐表】新增行的正确ID号；我的命令该怎么修改？

 

            Dim n As DataRow = DataTables("光缆台帐表").AddNew
           n.save
            n("区域") = e.Form.Controls("区域").Text
            n("机房名称") = e.Form.Controls("机房名称").Text
            n("光缆名称") = e.Form.Controls("光缆名称").Text
            n("工程项目") = e.Form.Controls("工程项目").Text
            n("施工单位") = e.Form.Controls("施工单位").Text
            n("施工时间") = e.Form.Controls("施工时间").Value
            n("光缆类别") = e.Form.Controls("光缆类别").Text
            n("光缆对数") = e.Form.Controls("光缆对数").Text
            n("光缆长度") = e.Form.Controls("光缆长度").Text
            n("抽头标识") = e.Form.Controls("抽头标识" ).Checked
                        
            If e.Form.Controls("光缆对数").Text = "08" Then
                For i As Integer = 1 To 1
                    For j1 As Integer = 1 To 8
                        Dim ndr As DataRow = DataTables("光缆纤芯台帐表").AddNew
                        ndr("区域") = e.Form.Controls("区域").Text
                        ndr("机房名称") = e.Form.Controls("机房名称").Text
                        ndr("光缆名称") = e.Form.Controls("光缆名称").Text
                        ndr("光缆Identify") = n("_Identify")
                        ndr("光缆类别") = e.Form.Controls("光缆类别").Text
                        ndr("光缆统计") = "-"
                        ndr("板盘统计") = "-"
                        ndr("机柜编号") = e.Form.Controls("机柜编号").Text
                        ndr("ODM框ODF盘") = e.Form.Controls("ODF" & i).Text
                        ndr("纤芯长度") = e.Form.Controls("光缆长度").Text
                        ndr("光缆对数") = e.Form.Controls("光缆对数").Text
                        ndr("板盘端子") = Format(j1, "00")
                        ndr("纤芯编号") = Format(j1, "00")
                    Next
                Next
            End If
           

 那你就直接编写代码吧当前行删除吧

 

Tables("光缆台帐表").Current.Delete

 

但是我新增行后，好像鼠标没有移动到新增行上

 

那就用变量记录新增的行

 

Dim n As DataRow = DataTables("光缆台帐表").AddNew

vars("新增行") = n

 

然后

 

vars("新增行").Delete

如何实现【副本】也能显示和【主表】相同的内容？

 

【添加】按钮命令：

Dim dlg As New OpenFileDialog
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png;*.txt;*.xls;*.doc;*.cad;*.vsd;*.pptx;*.dwg;*.kmz;*.mdb;*.psd;*.rar"
If dlg.ShowDialog = DialogResult.OK Then
    Dim fl As String = dlg.FileName
   
    DataTables("光缆台帐附件表").Save()
    Dim r As Row = Tables("光缆台帐附件表").AddNew()
    DataTables("光缆台帐附件表").Save()
   
    r("机房名称") = e.Form.Controls("机房名称").Text
    r("光缆名称") = e.Form.Controls("光缆名称").Text
   
    r("文件名") = FileSys.GetName(fl) '写入文件名
    r.Save '必须先保存
    r.DataRow.SQLInsertFile("附件",fl) '插入文件
    r.DataRow.SQLSetValue("CRC值", CRCCheckFile(fl)) '保存crc检验值
End If

 

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

Dim dlg As New OpenFileDialog
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png;*.txt;*.xls;*.doc;*.cad;*.vsd;*.pptx;*.dwg;*.kmz;*.mdb;*.psd;*.rar"
If dlg.ShowDialog = DialogResult.OK Then
    Dim t As Table = e.Form.controls("table1").Table
    Dim fl As String = dlg.FileName
   
    t.Save()
    Dim r As Row = t.AddNew()
    t.Save()
   
    r("机房名称") = e.Form.Controls("机房名称").Text
    r("光缆名称") = e.Form.Controls("光缆名称").Text
   
    r("文件名") = FileSys.GetName(fl) '写入文件名
    r.Save '必须先保存
    r.DataRow.SQLInsertFile("附件",fl) '插入文件
    r.DataRow.SQLSetValue("CRC值", CRCCheckFile(fl)) '保存crc检验值
End If