2008 07月 | VB程序员博客

我做了一个小ERP系统，当我点击 MDIform窗体的菜单中的一个窗体时，可以正常显示，但是如果再打开其他的窗体或者这个窗体就没了，除非把所有的窗体都最小话，才能看见，而且如果这个窗体有对话框弹出的话，这个窗体就会消失，关闭对话框这个窗体就又弹出来了，不知道是什么原因，请各位大哥大姐多多帮忙啊！！！
以下是这个窗体的代码：

其中：Rsxxshow 是mshflexgrid控件，c1是combobox控件,其他的基本上都是按钮控件。

Option Explicit
Public conn As ADODB.Connection
Dim lCurrentPage As Long
Dim adoprimaryrs As ADODB.Recordset
Dim lPageCount As Long
Dim nPageSize As Integer
Dim lCount As Long
Dim sql As String
Public str As String
Public delid As Integer
Public gengx
Dim rst As ADODB.Recordset
Dim myarray()
Public lpages As Long
Dim gengxnum

Public Sub dbrefresh(ByRef lpagel As Long)
Rsxxshow.ColWidth(0) = 350
Rsxxshow.RowHeight(0) = 330
Rsxxshow.AllowUserResizing = 1
gengx = 0
Dim i As Integer
Dim m As Integer
lCurrentPage = 1
nPageSize = 5
Set adoprimaryrs = New ADODB.Recordset
sql = "select 员工编号,姓名,性别,出生日期,民族,婚姻状况,政治面貌,学历,进入公司时间,转正时间,部门,岗位,籍贯,出生地,身份证号,所学专业,毕业学校,技术证书,家庭地址,电话,健康状况,照片,登记时间 from users order by 部门 asc"
adoprimaryrs.Open sql, Conngongsi, 1, 1

adoprimaryrs.PageSize = nPageSize

'页数

lPageCount = adoprimaryrs.PageCount

If lCurrentPage > lPageCount Then

lCurrentPage = lPageCount

End If
C1.Clear
C1.Text = "页次"
For i = 1 To lPageCount
C1.AddItem i
Next
For i = 0 To adoprimaryrs.Fields.Count - 1
ReDim Preserve myarray(i)
myarray(i) = adoprimaryrs.Fields(i).Name
Next
Call Loadcontrol(lpagel)

End Sub
Private Sub del_Click()
Dim s As String
If gengx <> 0 Then
s = MsgBox("你正在删除的纪录编号为：" & gengx, vbYesNo, "提示")
If s = vbYes Then
Conngongsi.Execute "Delete From users Where 员工编号 ='" & gengx & "'"
gengx = 0
lpages = 1
End If
End If
Call dbrefresh(lpages)
End Sub
Public Sub CloseConn()
If Not conn Is Nothing Then
conn.Close
Set conn = Nothing
End If
End Sub

Private Sub add_Click()
rsgl.Show
End Sub

Private Sub altertable_Click()
'zdgl.Show
End Sub

Private Sub b1_Click()
If Trim(C2.Text) <> "查询内容" And Trim(T1) <> "" Then
sql = "select 员工编号,姓名,性别,出生日期,民族,婚姻状况,政治面貌,学历,进入公司时间,转正时间,部门,岗位,籍贯,出生地,身份证号,所学专业,毕业学校,技术证书,家庭地址,电话,健康状况,照片,登记时间 from users where " & C2.Text & " = '" & T1 & " ' order by 员工编号 asc"
Set rst = New ADODB.Recordset
rst.Open sql, Conngongsi, 1, 1
If Not (rst.EOF And rst.BOF) Then
Set Rsxxshow.DataSource = rst
Else
MsgBox "没有符合条件的查询", , "提示"
Exit Sub
End If
Else
MsgBox "请先填写查询内容并选择类型！", , "提示"
Exit Sub
End If
End Sub

Private Sub C1_Click()
lCurrentPage = C1.Text
Call Loadcontrol(lCurrentPage)
If lCurrentPage = adoprimaryrs.PageCount Then
cmdPrevious.Enabled = True
first.Enabled = True
End If
End Sub

Private Sub cmdNext_Click()
If lCurrentPage < adoprimaryrs.PageCount Then
lCurrentPage = lCurrentPage + 1
Call Loadcontrol(lCurrentPage)
End If
End Sub

Private Sub cmdPrevious_Click()

If lCurrentPage > 1 Then

lCurrentPage = lCurrentPage - 1

Call Loadcontrol(lCurrentPage)

End If

End Sub

Private Sub Command1_Click()
'back.Show
End Sub

Private Sub Command2_Click()
'restore.Show
End Sub

Private Sub Command3_Click()
lpages = 1
dbrefresh (lpages)
End Sub

Private Sub Command4_Click()
'gzshow.Show
End Sub

Private Sub out_Click()
Unload Me
End Sub

Private Sub Rsxxshow_Click()
With Rsxxshow
If .MouseRow > 0 Then
If Trim(.TextMatrix(.RowSel, 0)) = "" Then
.TextMatrix(.RowSel, 0) = "√"
gengxnum = gengxnum + 1
Label2 = gengxnum
Else
.TextMatrix(.RowSel, 0) = ""
.ColSel = Rsxxshow.Cols - UBound(myarray) - 1
If gengxnum < 0 Then
gengxnum = 0
Else
gengxnum = gengxnum - 1
End If
Label2 = gengxnum
End If
End If
End With
End Sub

Private Sub Rsxxshow_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)

If Button = 2 Then
Rsxxshow.Row = Rsxxshow.MouseRow
Rsxxshow.ColSel = Rsxxshow.Cols - 1
gengx = Rsxxshow.TextMatrix(Rsxxshow.MouseRow, 1)
RSshow.PopupMenu popm
End If

End Sub

Private Sub delall_Click()
Dim i As Long
Dim s
If gengxnum > 0 Then
s = MsgBox("你确定要删除这" & gengxnum & "条纪录吗？", vbYesNo, "提示")
If s = vbYes Then
With Rsxxshow
For i = 1 To .Rows - 1 '循环删除选种的行
If .TextMatrix(i, 0) = "√" Then
Conngongsi.Execute "Delete From users Where 员工编号 ='" & .TextMatrix(i, 1) & "'"
End If
Next
End With
MsgBox "删除成功！", vbOKOnly + vbExclamation, "提示"
gengxnum = 0
lpages = 1
Call dbrefresh(lpages)
End If
End If
End Sub

Private Sub delmenu_Click()
Call del_Click
End Sub

Private Sub first_Click()
lCurrentPage = 1
Call Loadcontrol(lCurrentPage)

End Sub

Private Sub Form_Load()
Rsxxshow.ColWidth(0) = 350
Rsxxshow.RowHeight(0) = 330
Rsxxshow.AllowUserResizing = 1
gengx = 0
Dim i As Integer
Dim m As Integer
lCurrentPage = 1
nPageSize = 5
Set adoprimaryrs = New ADODB.Recordset
sql = "select 员工编号,姓名,部门,岗位,性别,出生日期,民族,婚姻状况,政治面貌,学历,进入公司时间,转正时间,籍贯,出生地,身份证号,所学专业,毕业学校,技术证书,家庭地址,电话,健康状况,照片,登记时间 from users order by 部门 asc"
adoprimaryrs.Open sql, Conngongsi, 1, 1

adoprimaryrs.PageSize = nPageSize

'页数

lPageCount = adoprimaryrs.PageCount

If lCurrentPage > lPageCount Then

lCurrentPage = lPageCount

End If
C1.Text = "页次"
For i = 1 To lPageCount
C1.AddItem i
Next
For i = 0 To adoprimaryrs.Fields.Count - 1
ReDim Preserve myarray(i)
myarray(i) = adoprimaryrs.Fields(i).Name
Next
Call Loadcontrol(lCurrentPage)
End Sub

Private Sub Loadcontrol(lpage As Long)
Dim x As Long
If lpage = 1 Then
last.Enabled = True
cmdNext.Enabled = True
first.Enabled = False
cmdPrevious.Enabled = False
ElseIf lpage = lPageCount Then
last.Enabled = False
cmdNext.Enabled = False
first.Enabled = True
cmdPrevious.Enabled = True
Else
last.Enabled = True
cmdNext.Enabled = True
first.Enabled = True
cmdPrevious.Enabled = True
End If
adoprimaryrs.AbsolutePage = lpage

'定义另一个记录集

Dim objrs As New ADODB.Recordset

'添加需要显示的字段名称

For x = 0 To UBound(myarray)
objrs.Fields.Append myarray(x), adVarChar, 50
Next
objrs.Open

'将指定记录数循环添加到objrs中,并且实现分页
For lCount = 1 To nPageSize
If adoprimaryrs.EOF Or adoprimaryrs.BOF Then
Exit For
Else
objrs.AddNew
For x = 0 To UBound(myarray)
objrs.Fields(myarray(x)) = adoprimaryrs.Fields(myarray(x)) & ""
Next
adoprimaryrs.MoveNext
End If
Next
'绑定
Set Rsxxshow.DataSource = objrs
'内容居中显示
Dim i As Integer
With Rsxxshow
.ColAlignmentFixed = 4
For i = .FixedCols - 1 To .Cols - 1
.ColAlignment(i) = 4
Next
End With
'在文本框显示页数
lpages = lpage
txtPage = lpage & "/" & adoprimaryrs.PageCount

End Sub

Private Sub Form_Unload(Cancel As Integer)

If Not conn Is Nothing Then

conn.Close

End If

Set conn = Nothing

End Sub

Private Sub gengxin_Click()
gengx = Rsxxshow.TextMatrix(Rsxxshow.RowSel, 1)
usershow.Show
End Sub

Private Sub gmenu_Click()
usershow.Show
End Sub

Private Sub info_Click()
'infos.Show
End Sub

Private Sub last_Click()
lCurrentPage = adoprimaryrs.PageCount
Call Loadcontrol(lCurrentPage)
End Sub

Private Sub List1_Click()
cmdPrevious.Enabled = True
first.Enabled = True
Call Loadcontrol(lCurrentPage)

End Sub

Private Sub Rsxxshow_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
With Rsxxshow
.ToolTipText = .TextMatrix(.MouseRow, .MouseCol)
End With
End Sub

支持楼上的做法

为什么是show方法的问题，只有这一个窗体是这样的，同时打开几个窗体也没有问题啊

我按照你的方法试过了不起作用，关键在与打开子窗体的时候，没有像打开其他窗体那样在任务栏中生成新的任务窗口，如果能够生成的话，应该这个问题应该就能解决了

修改下属性,应该可以解决.

你所说的属性是指什么属性

在任务栏中生成新的任务窗口那就不是子窗体了.确定窗体模式是否正确.
直接窗体名.show就行了.

准备办个简单的英语对话学习班.

聘任 yaqi 来做英文老师.

要交学费–可用分

交作业

考试

以一月为期,第一名,偶来给奖励.实物奖励哈,暂时构想就这些.

有兴趣者,先来个初级报名跟跟.

我看看有多少人>10人就办

支持~~~，观望~~

嘿呀,嘿嘿~~

我来也~~

想报个名,但是E文基础太太太太太差,不知道面向什么等级的E文学生?

能算我一个否./

哈哈我报名

引用 4 楼 fvflove 的回复:
能算我一个否./

可以哦只要你保证按时上课交作业哈

英语最好是没基础开始,哈哈

yaqi是个不错的老师呢

我现在的初步的打算是,谁最后第一名我就跟美国寄个礼物过来

不过要是我自己第一,哇卡卡，就要yaqi同学从英国给我寄个礼物了

我也来顶下

我也报名，看看能否让我的英语水平0的突破。

其实我也想学学。

支持，早日摆脱英语盲 ^^!

强烈支持，我做教导主任，看谁不听话。

我也报名，学费有的是

怎么总是天南海北的？
一会儿美国，一会儿英国的
不行，有点儿乱，得屡一屡

等我屡清了，我也报下名
自从过了四级就没怎么写过英语单词了

难道楼主要去美国了？

哇哈哈陈老大都来了~~看来雅奇会一下子多了N多“弟子”了

貌似理清了，报名，就当个助理教练吧，哈哈

现在已报名暂9人

daisy8675
myjian
fvflove
chenhui530
Modest
dsj23
jonys123
zzyong00
datou985

老师 clear_zero
教导主任: TechnoFantasy

引用 11 楼 TechnoFantasy 的回复:
强烈支持，我做教导主任，看谁不听话。

教导主任主任负责最后礼品的采购工作

好了,老大你出血吧,哦哈哈,这可是你自己找的

引用 16 楼 datou985 的回复:
貌似理清了，报名，就当个助理教练吧，哈哈

你想为最后的礼品买单吗?哇卡卡,想买单就做助理吧

强烈支持

狂顶

龙老大呀~~~~~~~~~~~~~~~~~~~~~~~~~终于在地球出现一次了…………..

汗
来的少一些

大家还好吧

看样子那天专门发个帖子絮絮旧了

M1的号召，诸位老大哪有不眷顾之理？

老龙，想死我了。哇咔咔

老龙做副教导主任吧，职务是协助教导主任办理采购事宜。

买单也无所谓
只要真有人能从中学到东西就好

带我不我报名

报名！

厄。。。。只是。。不知道学费多少
只有520可用分。。。 -_-

本来有1020分的。。。
前几天500分压本届奥运会中国金牌数最多 -_-!

我觉得大部分人过了四六级了，英语很好了。只要还记得用到就不会忘记
如果在外企的更是每天都用了

我英文水平按照听说读写依次下降

写最差，我写技术文档总是很担心对方看不明白，我的文档都写的比较繁复。一般包括流程图，部分细节流程图，文字解释，如果还不成就加屏幕截图。写那些弹出的对话框信息也没啥信心。

读的时候要是心浮气躁就读不进去，踏实下来就没什么问题。主要是我的词汇量小，还好有Babel Fish

听说没有什么问题，环境锻炼的。说上面就是表达清楚了就好了，口音什么的根本不用管。
现在看下来我觉得两个东西比较难 1细节描写(动作，表情，就好像中文中的那些细节描写) 2幽默。我听他们的Stand Up(类似中国的单口相声)感觉不到"包袱"在哪。这个应该是文化了

大家互相交流吧

我报名，

strongly support!

please enter my name

Ich wollte gehen nach Wien

Don't forget me ~~~

现在已报名暂14人

daisy8675
myjian
fvflove
chenhui530
Modest
dsj23
jonys123
zzyong00
datou985
zyg0
SilenceNet
mcxhh2005
viena
bobod2008

老师 clear_zero
教导主任: TechnoFantasy

yaqi你可以准备教材去了,HOHO

我也报名！！
自从有一次接了外国的电话能听懂别人讲的可是自己却不知道怎么回答，郁闷。。。。
提高英语说话能力最重要！！！

现在已报名暂15人

daisy8675
myjian
fvflove
chenhui530
Modest
dsj23
jonys123
zzyong00
datou985
zyg0
SilenceNet
mcxhh2005
viena
bobod2008
canylove

老师 clear_zero
教导主任: TechnoFantasy

看热闹的路人甲 :aiirii
看热闹的路人乙:online

ps:果然是XP家族两只活宝

,

米有可用分的穷光蛋飘过~~

引用 38 楼 jinjazz 的回复:
米有可用分的穷光蛋飘过~~

你可以拿专家分来交学费

只要你同意,我直接让某人在数据库里划帐如何

瞧,我对你要多好有多好.没有可用分就拿专家分.

什么时候开始啊？呵呵
越快越好
学费越少越好

这东西,网上咋学习呀??

利用www.itcast.net ??

这个是CSDN 办的,专门用于网络教学,培训

我也报名吧, 英语一直不好.

引用 40 楼 canylove 的回复:
什么时候开始啊？呵呵
越快越好
学费越少越好

应该下月开始,本周初招生,下星期正式招生付学费,分学号.

准备教材.

不过报名的同志要有心里准备,可是有作业和考试的 =_=

我报名做监考老师。

嗯，专家分就专家分吧，我报名.

我报名做监考老师。想考试通过的找我啦

不知道有没有听力，有听力就报名学啦

我发现我可以在任何板块把帖子加入精华，这个不是版主才有的权利么

现在已报名暂17人

daisy8675
myjian
fvflove
chenhui530
Modest
dsj23
jonys123
zzyong00
datou985
zyg0
SilenceNet
mcxhh2005
viena
bobod2008
canylove
ghj1976
jinjazz (专家分报名 ,这个代价大)

老师 clear_zero
教导主任: TechnoFantasy

看热闹的路人甲 :aiirii
看热闹的路人乙:online (果然是XP家族两只活宝)

无视的路人丁:only_endure

一个精神错乱捣的乱者 :net_lover (拖出去暴晒十天)

引用 48 楼 jinjazz 的回复:
我发现我可以在任何板块把帖子加入精华，这个不是版主才有的权利么

我们B4 他们呢

举报好象小版可以看见所有相关大版的举报

嗯，看在偶帮你推荐到首页的份上，打个折吧^&^

引用 51 楼 jinjazz 的回复:
嗯，看在偶帮你推荐到首页的份上，打个折吧^&^

我晕…..我说是谁推荐的呢 =_=

为了你这个推荐,我B4你,宣布收了5倍的学费 ^_^

叮叮叮
支持

我还以为你在b4 csdn的产品经理 -__-
你是开店的还是打劫的..

引用 54 楼 jinjazz 的回复:
我还以为你在b4 csdn的产品经理 -__-
你是开店的还是打劫的..

我本就是黑店店主

我发现我想吸收你入XP家族了,你想知道原因吗?
进入XP家族的人称呼都变了
而你,一旦进入,你的名字就叫—JP
哇卡卡.

XP家族的创建人是ari…你找他算帐吧.

引用 53 楼 yangao 的回复:
叮叮叮
支持

报名不报名啊,不报名,就当你是路人丙了 ^_^

引用 56 楼 daisy8675 的回复:
引用 53 楼 yangao 的回复:
叮叮叮
支持

报名不报名啊,不报名,就当你是路人丙了 ^_^

为什么都是打酱油，他就可以插队变成丙…

jp…也不错吗，我们打游戏的时候叫极品装备都叫jp的，包括我的头像就是jp，不过现在已经沦为lj了…

引用 57 楼 jinjazz 的回复:
引用 56 楼 daisy8675 的回复:
引用 53 楼 yangao 的回复:
叮叮叮
支持

报名不报名啊,不报名,就当你是路人丙了 ^_^

为什么都是打酱油，他就可以插队变成丙…

jp…也不错吗，我们打游戏的时候叫极品装备都叫jp的，包括我的头像就是jp，不过现在已经沦为lj了…

因为你是XP家族一员,怎么可以打酱油呢,AP会伤心的.
帮我找人来啊,黑店开得越大越好哦

俺也报名，别分学号了，每人分配个英文名好了

这下得好好折腾一下…..

希望至少以后拿着金山词霸看MSDN时不会太茫然…

我来报名，我也要参加，希望你真心的办下去，不要忽悠我们。

手机 : 13718443852

MSN: wge83@hotmail.com

我也参加

晕，班里没一个女同学！

引用 63 楼 net_lover 的回复:
晕，班里没一个女同学！

估计要暴晒30天了

引用 64 楼 jinjazz 的回复:
引用 63 楼 net_lover 的回复:
晕，班里没一个女同学！

估计要暴晒30天了

我看是60天……….

引用 63 楼 net_lover 的回复:
晕，班里没一个女同学！

老孟你装个女的好了,老孟见客来.

怎么个学法？什么时间？

报个名先。

偶，报名

请问楼主，教学方法是什么？
我门怎么学，需要做什么准备吗？
那么时间怎么分配呢，我还要上班啊？
呵呵，把您的方案给我门讲讲。。。。

引用 70 楼 canylove 的回复:
请问楼主，教学方法是什么？
我门怎么学，需要做什么准备吗？
那么时间怎么分配呢，我还要上班啊？
呵呵，把您的方案给我门讲讲。。。。

同意上个的意见。

引用 70 楼 canylove 的回复:
请问楼主，教学方法是什么？
我门怎么学，需要做什么准备吗？
那么时间怎么分配呢，我还要上班啊？
呵呵，把您的方案给我门讲讲。。。。

这个待考虑,总之是灵活式的

itcase也可以试试哦

总之,作业,考试是一定会有的

内容要做老师的来决定.

现在是初步报名,正式报名的时候,就开始会告诉你们方法了.

大概时间会在8月初或者8月中开始 (要考虑奥运会 ^_^ )

第一批成员最多20人.办得好的话,可以考虑下一批.

如果英语办得好.我们可以联系其他讲师 ^_^ 现在只能自己小打小闹一下.

光说教师和教导主任了，没看到校长，难道莫MM就是校长？

我要报名。

关注，拿分~

哈哈我报名

有作业还有考试，不知道有家长会没有，不及格要不要补考，补考不及格要不要重修…

先拿分
再报名
交分开发票不嘿嘿

偶也加入,英文太烂了

我是校长我就发财咯~~~

我要发财我要发财,嘿嘿.

不及格的出赞助就可以了.^_^.

可以开发票啊,我给你个萝卜章的发票哦.

分够就报名

我也比较感兴趣,不知道有什么条件,自我感觉E文很差

条件是:至少能分得清楚 26个字母,会读出来. 有耐心,能坚持者.

现在已报名暂27人

daisy8675
myjian
fvflove
chenhui530
Modest
dsj23
jonys123
zzyong00
datou985
zyg0
SilenceNet
mcxhh2005
viena
bobod2008
canylove
ghj1976
jinjazz (专家分报名 ,这个代价大)
java375378563
stning
jaksuse
shirleyliujingyi
frozenfood
thwen0101
tianyalangren
jiezhanyang
Herod21
zergcsda
老师 clear_zero
教导主任: TechnoFantasy

看热闹的路人甲 :aiirii
看热闹的路人乙:online (果然是XP家族两只活宝)

无视的路人丁:only_endure

拿分没门的路人戊：qinbuer

咨询路人之：rockyvan

一个精神错乱捣的乱者 :net_lover (拖出去暴晒十天)

我也参加一下，英语一直是软肋

我也参加一下，英语一直是软肋
我也参加一下，英语一直是软肋

报名报名..就会ABC,怎么学啊

我来说明下哈，我就是Yaqi

大家集思广义看看怎么才能更好的学习英文。

一个人学习比较孤单，不用长久。大家绑一块比较容易坚持

听
说
读
写

我想想，大家也想想

how much?

我也报名,LZ不能丢下我

报个名，攒了好几年的可用分了..

接不接收旁听生呀，就是不准时上课，不交作业的那种。

主要是基础太差

学费还是会交的哦。

具体方法是怎样

why not 不报名？

算我一个. ^_^

引用 80 楼 daisy8675 的回复:
我是校长我就发财咯~~~

我要发财我要发财,嘿嘿.

不及格的出赞助就可以了.^_^.

可以开发票啊,我给你个萝卜章的发票哦.

我现在就愁分太多啊，既然你能开萝卜章的发票，哪就赞助你一下了，开发票时，多写点儿

偶读书英语就没及过格不晓得行不行我写作业都找英语字典哎那日子苦啊
校长算我个否?

ME

引用 91 楼 leo2003 的回复:
接不接收旁听生呀，就是不准时上课，不交作业的那种。

主要是基础太差

学费还是会交的哦。

不接旁听生哦.

偶们开黑店,也是开正亏黑店

所谓,黑要黑得响亮!

欢迎所有报名的同学们.

大家都是什么水平呢？

Drive to halt straw burning sees Chinese farmers 'go green'

GOV.cn Tuesday, June 24, 2008

The summer harvest was over.

Watching a machine crush the wheat stubble in the field, Gao Chengli recalled the days when he was choked by smoke from burning straw and wary of local officials' scrutiny.

"We didn't get it at first," said the 40-year-old Gao, referring to China's ban on burning waste stalks, which began in 1999.

"Farmers even set fires secretly because it was convenient."

In the run-up to the Olympics, Chinese farmers like Gao have shifted from matches to machines as the government strives to keep Beijing from being smothered by smoke.

Officials are using many approaches, ranging from the carrot of subsidies and the stick of fines to satellite monitoring and straw-to-power projects.

Beijing farmers had adopted the conservation farming approach, which leaves stubble in the soil to increase organic matter, on more than 80 percent of all farm land since 2006, said the Ministry of Agriculture on Monday.

"The achievement was significant for reducing dust in Beijing, cutting straw burning and improving the capital's environment for the Olympics," the ministry quoted Minister Sun Zhengcai as saying in a statement.

Straw burning in the Beijing suburbs, which extend far beyond the city center, used to cause thick smog in the capital proper, closing highways and disrupting airport operations.

Smoke from the farms south of Beijing was blown north last June,polluting the capital's sky for days.

For Gao, who owns about 0.38 acres of land in Zhengding County, Hebei Province, which borders Beijing, the solution was a crushing machine organized by the township government.

In Beizaoxian, another town in the county, 200,000 yuan (28,571U.S. dollars) was allocated by the township government to subsidize farmers' purchase of farm machines, including the stubble-crushing machine.

"Farmers have gradually come to understand the harm of burning waste straw and voluntarily adopted crushing," said Zheng Wei, an official with the Zhengding government.

In some parts of China, the issue turned bitter for local officials. Four town-level officials were suspended last week for not doing enough to stop straw burning in Xi'an, capital of the northwestern Shaanxi Province.

To keep the sky clear for the Olympics, the central government expanded the no-straw-burning areas in May and imposed a full-scale ban in Beijing and eight regions neighboring or south of the city through September.

The China Meteorological Administration said that satellite monitoring picked up 1,762 fires set on farm land from June 2 to 15, down 22 percent from the period between June 4 and 17 last year.

Satellite technology was introduced in 2004 in an effort to reduce the outlawed practice of straw burning, and this system of monitoring detected 2,989 fires in 2007, up from 2,481 in 2004.

"Farmers had their own reasons." said professor Cheng Xu of the China Agricultural University (CAU).

Cheng said that farmers often had little time to clear the land of one crop before having to plant another, so fire was often the fastest option.

China's agricultural areas saw about 700 million tons of waste straw left after harvests each year.

By the end of 2007, mechanical stubble crushing had been applied on 327 million mu (21.8 million hectares) of farm land, about one sixth of the country's total, according to the ministry.

"About 30 percent of China's waste straw goes unused," said another CAU professor, Meng Qingxiang. "The waste straw is not 'waste' at all but a precious resource, and we must let people know that."

Straw has several uses, including livestock feed, methane production, a source of solid fuel or electricity generation, said Cheng.

Li Jing, deputy head of the National Development and Reform Commission's (NDRC's) resource conservation and environmental protection department, urged China to speed up the comprehensive use of waste straw.

China is considering ways to use more than 80 percent of its waste straw by 2015, according to officials with the NDRC.

Editor: An Lu
Source: Xinhua

报名啦

报名
报名报名
报名报名报名
报名报名报名报名
报名报名报名报名报名
报名报名报名报名报名报名
报名报名报名报名报名报名报名
报名报名报名报名报名报名报名报名

前面报名被MMM无视了，再报

各位同学：入学前先进行一下测试，将下面的一句话翻译成中文，按准确程度录取：

I will go to sleep.

这句话翻译成中文，怎么说最恰当？

我要去睡觉了..

引用 103 楼 net_lover 的回复:
各位同学：入学前先进行一下测试，将下面的一句话翻译成中文，按准确程度录取：

I will go to sleep.

这句话翻译成中文，怎么说最恰当？

我会去睡觉？

老孟你基本上够丰满了，请保持体形。

还有这么好的事~
我一定要报名

奖励什么的就不用了每天有冰激凌吃就可以了~

怎么对话啊？说说条件呢

引用 105 楼 Modest 的回复:
引用 103 楼 net_lover 的回复:
各位同学：入学前先进行一下测试，将下面的一句话翻译成中文，按准确程度录取：

I will go to sleep.

这句话翻译成中文，怎么说最恰当？

我会去睡觉？

老孟你基本上够丰满了，请保持体形。

一般这样说
I am going to sleep 或者 I am going to bed
比较口语化，不过你说的也是对的

真是太好了。我要来哦

Is true
I think 报名
还要不

我必须报名

引用 3 楼 myjian 的回复:
嘿呀,嘿嘿~~

我来也~~

想报个名,但是E文基础太太太太太差,不知道面向什么等级的E文学生?

报名 ,报名 , 楼主, 我要摆脱english半文盲状态

学不来了
热贴留名……

我也报名，这个主意不错！

多好可以和女同学聊天还可以聊女老师喜欢

引用 3 楼 myjian 的回复:
嘿呀,嘿嘿~~

我来也~~

想报个名,但是E文基础太太太太太差,不知道面向什么等级的E文学生?

我要报名… …

我也想学呀！

大家说说都想学些什么

网上教很难阿，可以用到的工具

1csdn平台
2msn群
3skype

我就知道这么多了

我们都想想什么方法比较好

引用 120 楼 clear_zero 的回复:
大家说说都想学些什么

网上教很难阿，可以用到的工具

1csdn平台
2msn群
3skype

我就知道这么多了

我们都想想什么方法比较好

有在线的chat 比如ms 的webcast.

QQ群也是一个联系方式哦

不是所有人都能上qq的

QQ群，msn我都没问题，问题是什么时间。呵呵

引用 116 楼 zyg0 的回复:
多好可以和女同学聊天还可以聊女老师喜欢

我就知道你这么说

贴出影子的档案

VB code

名字：影子
ID：  zyg0
性别：男
爱好：女

引用 124 楼 Modest 的回复:
引用 116 楼 zyg0 的回复:
多好可以和女同学聊天还可以聊女老师喜欢

我就知道你这么说

贴出影子的档案

VB code名字：影子
ID： zyg0
性别：男
爱好：女

引用 125 楼 myjian 的回复:
引用 124 楼 Modest 的回复:
引用 116 楼 zyg0 的回复:
多好可以和女同学聊天还可以聊女老师喜欢

我就知道你这么说

贴出影子的档案

VB code名字：影子
ID： zyg0
性别：男
爱好：女

咳ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷂ𗂷
我漂过ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷼ/td>

引用 127 楼 xiaoya317 的回复:
咳ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷂ𗂷
我漂过ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷠ

鸭蛋做校花吧

米钱怎办?

引用 128 楼 Modest 的回复:
引用 127 楼 xiaoya317 的回复:
咳ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷂ𗂷
我漂过ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷠ

鸭蛋做校花吧

不交学费刑行不行啊？
俺要攒的那点分要用来娶媳妇呢….

按照什么学习呢？

生活场景？技术知识？

生活场景，可以按照如何在国外生活来说。
比如
机场
交通工具
…

技术知识，我就不知道了

大家出主意阿

我要报名
顺便问一下：上面孟子等级怎么成一级了，不是两个钻吗？纳闷中！！

引用 31 楼 viena 的回复:
please enter my name

没学之前，只当胡话。请用标准地球人类语再叙述一遍，ok？

报名

引用 134 楼 Modest 的回复:
引用 31 楼 viena 的回复:
please enter my name

没学之前，只当胡话。请用标准地球人类语再叙述一遍，ok？

标准火星人类语行不?

引用 2 楼 aiirii 的回复:
支持~~~，观望~~

报名

我要去睡觉
可以报名了吧~!
不过没分（＾＠＾）

引用 126 楼 hero0617 的回复:
引用 125 楼 myjian 的回复:
引用 124 楼 Modest 的回复:
引用 116 楼 zyg0 的回复:
多好可以和女同学聊天还可以聊女老师喜欢

我就知道你这么说

贴出影子的档案

VB code名字：影子
ID： zyg0
性别：男
爱好：女

我们这里也会这么说
Sex Male
Interest Female
如果看到facebook这样写的话，大家不要误会。这是表明性取向。:)

引用 140 楼 clear_zero 的回复:
我们这里也会这么说
Sex Female
Interest Female
如果看到facebook这样写的话，大家不要误会。这是表明yaqi是拉拉。:)

引用 133 楼 slimfeng 的回复:
我要报名
顺便问一下：上面孟子等级怎么成一级了，不是两个钻吗？纳闷中！！

因为他被暴晒得他的钻石都没有了.

引用 142 楼 daisy8675 的回复:
引用 133 楼 slimfeng 的回复:
我要报名
顺便问一下：上面孟子等级怎么成一级了，不是两个钻吗？纳闷中！！

因为他被暴晒得他的钻石都没有了.

晒化了

溢出，怎么解决啊？计算r6_1
r6_1 = Round((Val(RecTemp("js1996")) / pjgz_1(1) + Val(RecTemp("js1997")) / pjgz_1(2) + Val(RecTemp("js1998")) / pjgz_1(3) + Val(RecTemp("js1999")) / pjgz_1(4) + Val(RecTemp("js2000")) / pjgz_1(5) + Val(RecTemp("js2001")) / pjgz_1(6) + Val(RecTemp("js2002")) / pjgz_1(7) + Val(RecTemp("js2003")) / pjgz_1(8) + Val(RecTemp("js2004")) / pjgz_1(9) + Val(RecTemp("js2005")) / pjgz_1(10) + Val(RecTemp("js2006")) / pjgz_1(11) + Val(RecTemp("js2007")) / pjgz_1(12) + Val(RecTemp("js2008")) / pjgz_1(13) + Val(RecTemp("js2009")) / pjgz_1(14) + Val(RecTemp("js2010")) / pjgz_1(15) + Val(RecTemp("js2011")) / pjgz_1(16) + Val(RecTemp("js2012")) / pjgz_1(17) + Val(RecTemp("js2013")) / pjgz_1(18) + Val(RecTemp("js2014")) / pjgz_1(19) + Val(RecTemp("js2015")) / pjgz_1(20)) / Val(cs_11) * Val(cs_2) * Val(r2_1) * Val(cs_10), 1)
js1996:1996年的基数（1996-2008年的基数已给）
pjgz:截止到当年的平均工资（1996-2008年的平均工资已给）
由于计算的时候，从2009之后js2006及pjgz没有赋值，在计算的时候提示溢出，请问如何解决？！

在前面加上on error resume next

工资都能溢出？设计的不合理吧。

没看明白代码，实在太吃力了

引用 3 楼 jennyvenus 的回复:
工资都能溢出？设计的不合理吧。

我的工资什么时候能溢出就好了……….

引用 5 楼 myjian 的回复:
引用 3 楼 jennyvenus 的回复:
工资都能溢出？设计的不合理吧。

我的工资什么时候能溢出就好了……….

如果负数算溢出，俺溢出过。

…………我常这样"溢出"..

楼主，太监了？

如
电脑存在这样一文件夹＂F:MRP＂
在我删除时，有这么一个程序　会自动创建一个日志　说明删除的文件，是哪个人，什么时候

有谁写过啊，也可以提供一些思路

对，文件夹监控
效率要求高点
如用API　应怎么帮啊

谁有关于　ReadDirectoryChangesW　函数的说明和实例

到枕善居下载这个代码好好研究一下：
http://www.mndsoft.com/blog/article.asp?id=205

一般两种方法：
1.api:SHChangeNotifyRegister
2.wmi:监视_InstanceOperationEvent 类

拦截API调用
在驱动可以文件过滤驱动

如何获得另一个程序中网页的内容？

例如：一个VB EXE程序中用到了webbrowser控件做网页显示。
如何用外挂形式获得这个程序中的所有内容。请赐教谢谢。

顶顶
顶顶
顶顶

很难不会自己去找吧

up

当然有办法呀.

那些取网页密码框内容的代码貌似就是得到了网页源代码.

在 wmi 中调用 PhysicalMedia 获得硬盘序列号时提示null

Dim DiskDriveSet As SWbemObjectSet
Dim dd As SWbemObject
Set DiskDriveSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_PhysicalMedia")
For Each dd In DiskDriveSet

text1.text=dd.SerialNumber

Next

自己顶吧
mark一下