Question

我在Visual Basic 6中使用Janus GridEx网格控件，我试图在使用连接之前以编程方式更改其中一个属性（DatabaseName）。我在属性窗口中设置的那个可能是错误的，我想在使用它之前动态设置它。我试图在Form_Initialize（）或Form_Load（）中设置它，并且它们都没有在使用之前覆盖属性窗口中的on。

有什么想法吗？

Answer 1

创建一个自定义记录集并设置为ADORecordset属性的网格

gData.HoldFields
Set gData.ADORecordset = rstData

如果您创建了一个与数据库具有相同模式的记录集，则可以执行

已保存的数据

IDataRepository.Save(gData.ADORecordset)

保存骨架

function Save (rs as adodb.recordset)

  Dim cn As ADODB.Connection

  Set cn = new ADODB.Connection
  cn.CursorLocation = adUseClient
  cn.Open Cnstr

  Set rs.ActiveConnection = cn
  If rs.LockType = adLockBatchOptimistic Then
     rs.UpdateBatch
  Else
     rs.Update
  End If
  Set rs.ActiveConnection = Nothing

  cn.Close
  Set cn = Nothing
end function

对于带掩码的属性，例如

gData.Columns("Status").ValueList.Clear

gData.Columns("Status").ValueList.Add "A", "Accepted"
gData.Columns("Status").ValueList.Add "R", "Rejected"

保留间隔值，用户可以查看更具人性化的

以编程方式更改Janus GridEx网格DatabaseName

1 个答案: