ctGrid新特破，齐来研究........

luhao

活用ctGrid，完全可以代替子窗体，比子窗体更完美...........
第一代码:
           Private Sub Form_Load()
    Dim TXSQL As String
    TXSQL = "SELECT 备料订单表明细.流水单号ID, 备料订单表明细.销售订单, 备料订单表明细.排序, 备料订单表明细.删除 " & _
            "FROM 备料订单表明细 "
               
    Call LoadctGrid(ctGrid1, "\料房管理.mdb", TXSQL)
End Sub

luhao

56# Grant

多谢Grant大哥

Grant

例子中的代码写的有点啰嗦,不太完善

有些地方还需要注意,比如标题没有格式化,自己写一个循环吧,最近忙只是帮你把数据调了出来.

wanshan

要学的东西太多了，一个一个的研究，谢谢kangking。

kangking

楼上的效果可以用vsflexfrid达到，或者你就是用的vsflexfrid。ctgrid还没有用过。

wanshan

谢谢luhao的分享，下下来好好研究一下，看看能不能使界面更专业。

不知道这个控件能不能做到下面这张图的效果：相同的就只显示一条，这样看起来更直观。

kangking

谢谢！

luhao

ctGrid控件及帮助说明文档

luhao

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
    Dim strSQL As String
    Set conn = CurrentProject.Connection
    strSQL = "select * from  表1"
    rs.Open strSQL, conn, 1, 3
...
Grant 发表于 2009-11-9 01:04

还是有问题呀，老大..

luhao

并不是直接写表函数就会直接帮你打开表,你误解了函数
Grant 发表于 2009-11-9 01:05

谢谢Grant版主，