![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VB
文章平均质量分 75
leeyon4151
这个作者很懒,什么都没留下…
展开
-
vb 连接数据例子
工程-->引用 添加 Microsoft activex data objects 2.5 library 工程-->部件 添加 Microsoft flexgrid control 6.0 Dim Cnn As New ADODB.Connection Cnn.ConnectionString = "Provider=microsoft.jet.oledb.4.0;d转载 2010-05-01 20:35:00 · 477 阅读 · 0 评论 -
VB实现数字到中文金额的转换函数
Private Function NMoneyToSMoney ( NMoney As Variant ) As String If IsNumeric ( NMoney ) = False Then NMoneyToSMoney = "不是数字类型" Exit Function End If转载 2010-05-01 21:35:00 · 1467 阅读 · 2 评论