'************************************ LMS 2017.10 ( SaveVSFGrid_ByBm ) ************************************
'* 3、保存VSFGrid数据(没有Ywdh,fsrq,fl_id):以第一列(第一列必须是编码字段,且为字符串型)为主键值(是字符串型),表里面没有有 Ywdh,fl_id,fsrq字段(例如:物料编码表)
'* gridcol_fieldlx=0,该字段在表中不存在或者是uniqueidentifier型(数据库字段得到值),不需要保存 )
'* 参数:Table_Name:要保存的表;Grid_Code:对应在Xt_Grid表中的代码 (要保存表的字段和VSFGrid相对应的列);Bm_FieldName=编码字段作为主键值
'************************************ LMS 2017.10 ( SaveVSFGrid_ByYwdh ) ************************************
Public Sub SaveVSFGrid_ByBm(VSFGrid As VSFlexGrid, Table_Name As String, Bm_FieldName As String, Grid_Code As String)
With VSFGrid
If .Rows = .FixedRows Then Exit Sub
Dim rst As New ADODB.RecordSet, SQL
'* 3、保存VSFGrid数据(没有Ywdh,fsrq,fl_id):以第一列(第一列必须是编码字段,且为字符串型)为主键值(是字符串型),表里面没有有 Ywdh,fl_id,fsrq字段(例如:物料编码表)
'* gridcol_fieldlx=0,该字段在表中不存在或者是uniqueidentifier型(数据库字段得到值),不需要保存 )
'* 参数:Table_Name:要保存的表;Grid_Code:对应在Xt_Grid表中的代码 (要保存表的字段和VSFGrid相对应的列);Bm_FieldName=编码字段作为主键值
'************************************ LMS 2017.10 ( SaveVSFGrid_ByYwdh ) ************************************
Public Sub SaveVSFGrid_ByBm(VSFGrid As VSFlexGrid, Table_Name As String, Bm_FieldName As String, Grid_Code As String)
With VSFGrid
If .Rows = .FixedRows Then Exit Sub
Dim rst As New ADODB.RecordSet, SQL